﻿Imports RootCalc.Options
Imports RootCalc.Functions

Public Class RootCalc
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Options.ShowDialog()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sol As Object
        sol = CalculateRoot(TextBox1.Text, TextBox2.Text)
        Label1.Text = "= " & sol
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""

    End Sub

End Class
